Group=Paint
Name=Ip[UCN
Init=coord=0;\n?a1,UCNTCY,1,10,5;\ncx=cy=-1;\nc1=c2=0;\nb2=1;\na1=100-a1;\nloop=2; \nkeepImage=0;
Prog=if(loop==2){\nif(R==255&&G==255&&B==255){\nR=G=B=254;\n}\nc4=rand(1,100);\nif(c4<a1){\nR=G=B=255;\n}\n}else{\ncoord=-1;\n\nc5=0;\nwhile(c5<1){\n_Fill(255,255,255);\nc5=1;\nc1=1;\nwhile(c1<=xs){\nc2=1;\nwhile(c2<=ys){\nR=G=B=0;\nadd(c1,c2,1);\nif(R==255&&G==255&&B==255){\nc5=c5-1;\nR=G=B=0;\nadd((c1+1),c2,1);\n\n\nif(R==255&&G==255&&B==255){\nR=G=B=0;\nadd(c1,(c2-1),1);\n}\n\nif(R==255&&G==255&&B==255){\nR=G=B=0;\nadd((c1-1),c2,1);\n}\n\nif(R==255&&G==255&&B==255){\nR=G=B=0;\nadd(c1,(c2+1),1);\n}\n\n_Pset(c1,c2);\n}\n\nc2=c2+1;\n}\nc1=c1+1;\n}\n_Copy(4);\n_Copy(-1);\n}\n\nexit(-1);\n\n}\n